// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread 'FORC' 

6@ = 0
:STARTbb
while true
    REPEAT
    WAIT 0
    UNTIL IF PLAYER.Defined(0)
    IF Actor.Driving($PLAYER_ACTOR)
    then
        break
    end
end
23@ = Actor.CurrentCar($PLAYER_ACTOR)                                                                         
Model.Load(3783)                                                                                            
038B: load_requested_models                                                                                     
WAIT 50                                                                                                         
0@ = Object.Create(3783, 0.0, 0.0, -25.0)                                                                       
0407: store_coords_to 12@ 13@ 14@ from_car 23@ with_offset 0.0 6.0 1.0                                          
Object.PutAt(0@, 12@, 13@, 14@)                                                                                 
0750: set_object 0@ visibility 0                                                                                
0407: store_coords_to 12@ 13@ 14@ from_car 23@ with_offset 0.0 6.0 1.0                                          
0681: attach_object 0@ to_car 23@ with_offset 0.0 6.0 1.0 rotation 0.0 0.0 0.0                                  
6@ = 1                                                                                                                     
while true                                                                                                                 
    wait 0                                                                                                                 
    0AF0: 5@ = get_int_from_ini_file "CLEO\POZIT.INI" section "FORCE" key "GET"                                            
    if 5@ == 1                                                                                                             
    then                                                                                                                   
        if 6@ == 1                                                                                                         
        then                                                                                                               
            if                                                                                                             
             03CA:   object 0@ exists                                                                                      
            THEN                                                                                                           
                Object.Destroy(0@)                                                                                         
                Model.Destroy(3783)                                                                                        
            END                                                                                                            
            6@ = 0                                                                                                         
            end_thread                                                                                                     
        end                                                                                                                
    end                                                                                                                    
    if not Actor.Driving($PLAYER_ACTOR)                                                                                    
    then                                                                                                                   
        if 6@ == 1                                                                                                         
        then                                                                                                               
            if                                                                                                             
             03CA:   object 0@ exists                                                                                      
            THEN                                                                                                           
                Object.Destroy(0@)                                                                                         
                Model.Destroy(3783)                                                                                        
                6@ = 0                                                                                                     
            END                                                                                                            
            jump @STARTbb                                                                                                    
        end                                                                                                                
    end                                                                                                                    
end